home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_1
/
pubdom.tar
/
pubdom
/
maguire
/
lander
/
lander.dir
< prev
Wrap
File List
|
1990-05-14
|
4KB
|
125 lines
%%HP: T(1)A(D)F(.);
DIR
BKRND
GROB 131 64 00002000000020000000000000000000000800000000000000000000000000000000100000001000000080000000800000000000000000000000000000000000000000000002080000000040000108000E3000080000000000001000000000000081D01000000000000000000000000000004011000000000000000000000000000000202200000000000000000002000000200010C50000000202008010000000000000001F06000000000004000000008000000048C0780000000000000000000000400000082088004000000000000004000000000008208800000000000000000000000000000820880000000000000000000080080000084078000000000000000000000000004000990402000000400000400000000000000011140000000000000000000000000000002122000000800000000000000000000800422100000000008000002000000000000085D00008000000000000008000202000000E300020000000000000000000000000000000000000000100400000000000000000004080000000000000000000000000400100000000000000000000000080000000000000000000010000000000000000000000000000000000000000008000000000000000000000000000F10000008F10000000008F70040800000F0E108000706000F70000708300000000F00060100800800C08100800040000000C000081000400010300620400089080008300000600030002D00080020000200000E000000810800002300003010000C0000010000C006040000C00000C80000003000000000210813000080000005000000C0040000081200E10000030000020000000700000004040060000004000001000000083000000204001000000800008000000000C0000003080010000000300E7000000000030000010018000000004081000000000000000080002600000000804000000000000000004000A100000000012000000000000000004000400000000001100000000000000000200080000000000210000000000000008F100080000000000C000000000000000040000001000000000400000000000000002000000200000000020000000000000000100000020000000002000000000000000800000004000000000100000000000000040000000800000000800000000000000002000000001000000080000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF700000000000000000000000000000000000C5D5000000000000000000007129EE0000445400000000000000000000515B240000C5D500000000000000000000717FE40000445400000000000000000000115D2400004CDD300000000000000000001759E40000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
CFUEL
GROB 8 3 000000
CST { PLAY QUIT }
FUEL
GROB 74 3 FFFFFFFFFFFFFFFFFF30FFFFFFFFFFFFFFFFFF30FFFFFFFFFFFFFFFFFF30
GETS
½
IF KEY
THEN { (0,0)
(0,.6) (0,-.6)
(-.75,0) (.75,0) }
{ 25 35 34 36 } ROT
POS 1 + GET
ELSE (0,0)
END GV +
'DXY' STO+ DXY 'XY'
STO+ XY
╗
GOVR
½ 220 1 BEEP
"Game Over" MSSG
╗
IMPRG
½ WORK RCLF ì
fgs
½ -40 CF -55
CF CLLCD
" LANDER" 4
DISP
DO 1 MENU
CST
WHILE -1
WAIT IP 10 - DUP2
SWAP SIZE >
REPEAT
DROP 340 .07 BEEP
END GET
DUP EVAL
UNTIL { End
EXIT QUIT } SWAP
POS
END fgs
STOF
╗
╗
INT
½ (0,0) 'DXY'
STO (65,63) 'XY'
STO FL 'FM' STO
'RD' 1 STO+ BKRND
123 RAND * IP 17
RìC DUP (0,1) +
'PLOC' STO LPAD
REPL (0,4) FUEL {
# 0d # 0d } FL RE
RìB # 3d 2 ìLIST
SUB REPL (106,4) RD
ìSTR 1 ìGROB REPL
PICT { # 0d # 0d }
ROT REPL 'FL' (2,0)
STO- GV DUP SIGN
SWAP ABS .04 + .4
MIN * 'GV' STO {
# 0d # 0d } PVIEW
╗
LAND
½ 660 880
FOR i i .05
BEEP 10
STEP 1 WAIT
MAIN
╗
LPAD
GROB 7 6 94F7E3C1E3F7
MAIN
½ INT PICT RCL
{ # 0d # 0d } {
# 131d # 50d } SUB
SHIP
IFERR
DO 'FM' 1
STO- PICT FM CFUEL
REPL DUP2 GETS SWAP
GOR PICT { # 0d
# 0d } ROT REPL
UNTIL XY
CìPX PXìC PLOC SAME
END LAND
THEN GOVR
DROP2
END
╗
MSSG
½ PICT { # 38d
# 25d } ROT 3 ìGROB
REPL 3 FREEZE 2
WAIT
WHILE KEY
REPEAT
END
╗
PLAY
½ 1 MENU # 131d
# 64d PDIM 0 130
XRNG 0 63 YRNG
(74,4) 'FL' STO
(0,-.03) 'GV' STO 0
'RD' STO MAIN
╗
QUIT
½ WORK CLVAR
LANDERDIR UPDIR 2
MENU
╗
SHIP
GROB 7 11 80C1C1E3E3F7F7F7B69414
WORK
DIR
END
END